home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
p4
/
p4-1_2c.lha
/
p4-1.2c
/
misc
/
temp1.f
< prev
next >
Wrap
Text File
|
1993-05-24
|
285b
|
18 lines
program temp
integer i
character*80 tempchar
i = iargc()
print *,'iargc=',i
i = 0
call getarg(i,tempchar)
print *,'tempchar0=',tempchar
i = 1
call getarg(i,tempchar)
print *,'tempchar1=',tempchar
end